COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PRETTY"
C00005 ENDMK
C⊗;
BEGIN "PRETTY"
REQUIRE "TYPHDR.SAI[GOD,HPM]" SOURCE_FILE;

INTEGER FJ,I,J,K,L,M,N; REAL P,Q;
REAL ARRAY X,Y[1:10];

FJ←FILJOB("DSK:PRETTY.GOD[DIA,HPM]");

DDINIT; SCREEN(-1.2,-1.2,1.2,1.2);

PICFIL(-1,-1,1,1,"U:SF2.PIC[DIA,HPM]"); LITEN;
LINE(-1,-1,-1,1); LINE(1,1,-1,1);  LINE(1,1,1,-1);   LINE(-1,-1,1,-1);

FNTSELECT(2,"METMBM"); FNTSELECT(3,"METSBM");
FNTSELECT(103,"BASL30");

FNTPOS(-1,1.03,1,1,0,0);
FNTEXT(0,0,2,"See the pretty aeroplane");

DRKEN;
   BEGIN REAL ARRAY X,Y[1:20]; INTEGER I;
   FOR I←1 STEP 1 UNTIL 20 DO
     BEGIN X[I]←.89+0.304*COS((I-1)*2*3.14159/20);
     Y[I]←.5+0.12*SIN((I-1)*2*3.14159/20); END;
   X[12]←.62; Y[12]←-.23;
   POLYGO(20,X[1],Y[1]);
   LITEN;
   FOR I←1 STEP 1 UNTIL 20 DO
      LINE(X[I],Y[I],X[(I MOD 20)+1],Y[(I MOD 20)+1],3);
   END;

FNTPOS(.89,.5);
DEPOSIT(0,0,CENTER(JTXT(3,"Yow !!!  I am an L1011 !!")));

DPYUP(-1); KILJOB(FJ);
END;